home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / label.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-09  |  2.2 KB  |  75 lines
  1. 10  DIM A$(60)
  2. 20  CLEAR: CLS
  3. 30  PRINT TAB(35) "LABEL 1.2": PRINT
  4. 40  PRINT TAB(32) "Steve Burghardi"
  5. 50  PRINT TAB(33) "883 Galtier St"
  6. 60  PRINT TAB(30) "St. Paul, MN   55117"
  7. 70  PRINT TAB(34) "612/487-1173":PRINT
  8. 80  PRINT TAB(5) "This program makes two-line, condensed or normal print labels that work"
  9. 90  PRINT "well for diskettes, cassette tapes or file folders."
  10. 100  PRINT
  11. 110  PRINT TAB(10) "1. Use 3.5 by 15/16in labels with an `EPSON'-type printer."
  12. 120  PRINT TAB(10) "2. Position the label sheet with the left edge at the"
  13. 130  PRINT TAB(13) "20 mark on the scale."
  14. 140  PRINT TAB(10) "3. Enter an s at the title prompt to print"
  15. 150  PRINT TAB(13) "the same line as the last label."
  16. 160  PRINT TAB(10) "4. Enter a <cr> to leave a blank line but retain"
  17. 170  PRINT TAB(13) "the same line value in memory as the last run."
  18. 180  PRINT TAB(10) "5. Enter an r for the first title to reset"
  19. 190  PRINT TAB(13) "print type and/or tab setting."
  20. 200  PRINT TAB(10) "6. Enter an e at any title prompt to end program."
  21. 210  PRINT
  22. 220  PRINT
  23. 230  PRINT "Tiny or Normal Print (T,N)";
  24. 240  INPUT P$
  25. 250  PRINT "Tab Setting (<cr>=27)";
  26. 260  INPUT T
  27. 270  IF T=0 THEN T=27
  28. 280  IF P$="N" OR P$="n" THEN GOTO 520
  29. 290  PRINT "ENTER FIRST TITLE ";
  30. 300  INPUT A$(1)
  31. 310  I=1
  32. 320  IF A$(1)="E" OR A$(1)="e" THEN SYSTEM
  33. 330  IF A$(1)="R" OR A$(1)="r" GOTO 230
  34. 340  IF A$(1)="" THEN I = 3: GOTO 370
  35. 350  IF A$(1)="S" OR A$(1)="s" THEN GOTO 380
  36. 360  C$(1)=A$(1)
  37. 370  C$(3)=A$(1)
  38. 380  PRINT "ENTER SECOND TITLE";
  39. 390  INPUT A$(2)
  40. 400  N=2
  41. 410  IF A$(2)="E" OR A$(2)="e" THEN SYSTEM
  42. 420  IF A$(2)="" THEN N = 4: GOTO 450
  43. 430  IF A$(2)="S" OR A$(2)="s" THEN GOTO 460
  44. 440  C$(2)=A$(2)
  45. 450  C$(4)=A$(2)
  46. 460  PRINT: PRINT "ALIGN LABELS ON PRINTER AND PRESS 'ENTER'";
  47. 470  INPUT B$
  48. 480  LPRINT CHR$(27) CHR$(68) CHR$(T) CHR$(1) CHR$(15) CHR$(27) CHR$(52) CHR$(9) CHR$(27) CHR$(71) C$(I)
  49. 490  LPRINT CHR$(9) C$(N): LPRINT: LPRINT: LPRINT
  50. 500  LPRINT CHR$(27) CHR$(64)
  51. 510  GOTO 290
  52. 520  PRINT "ENTER FIRST TITLE ";
  53. 530  INPUT A$(1)
  54. 540  IF A$(1)="E" OR A$(1)="e" THEN SYSTEM
  55. 550  IF A$(1)="R" OR A$(1)="r" THEN GOTO 230
  56. 560  I=1
  57. 570  IF A$(1)="" THEN I = 3: GOTO 600
  58. 580  IF A$(1)="S" OR A$(1)="s" THEN GOTO 610
  59. 590  C$(1)=A$(1)
  60. 600  C$(3)=A$(1)
  61. 610  PRINT "ENTER SECOND TITLE";
  62. 620  INPUT A$(2)
  63. 630  N=2
  64. 640  IF A$(2)="E" OR A$(2)="e" THEN SYSTEM
  65. 650  IF A$(2)="" THEN N = 4: GOTO 680
  66. 660  IF A$(2)="S" OR A$(2)="s" THEN GOTO 690
  67. 670  C$(2)=A$(2)
  68. 680  C$(4)=A$(2)
  69. 690  PRINT: PRINT "ALIGN LABELS ON PRINTER AND PRESS 'ENTER'";
  70. 700  INPUT B$
  71. 710  LPRINT CHR$(27) CHR$(68) CHR$(T) CHR$(1) CHR$(27) CHR$(71) CHR$(27) CHR$(69) CHR$(9) C$(I)
  72. 720  LPRINT CHR$(9) C$(N): LPRINT: LPRINT: LPRINT
  73. 730  LPRINT CHR$(27) CHR$(64)
  74. 740  GOTO 520
  75.